; ORIGINAL: 3dt2.1/examples/colors.scm
; $Id: colors.scm,v 1.3 1996/10/21 15:58:59 aed Exp $
;======================================================================
; Purpose---
;    Define names for standard colors
;
;======================================================================

(define BLACK 0)
(define RED 1)
(define GREEN 2)
(define BLUE 3)
(define CYAN 4)
(define YELLOW 5)
(define MAGENTA 6)
(define WHITE 7)

(define rgb:red     (color:rgb 1 0 0))
(define rgb:green   (color:rgb 0 1 0))
(define rgb:blue    (color:rgb 0 0 1))
(define rgb:yellow  (color:rgb 1 1 0))
(define rgb:magenta (color:rgb 1 0 1))
(define rgb:cyan    (color:rgb 0 1 1))
(define rgb:black   (color:rgb 0 0 0))
(define rgb:white   (color:rgb 1 1 1))
